unit MsgWidget;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Forms;

const
  WM_MY_MSG = WM_USER + 100;
  WM_CLOSEITEM_MSG = WM_MY_MSG + 1;
  WM_MENUBUTTONCLICK_MSG = WM_MY_MSG + 2;
  WM_MENUSHOW_MSG = WM_MY_MSG + 3;

var
  MainFromHande: HWND;

function imageFile(name: string; f: string = 'png'): string;

implementation

function imageFile(name: string; f: string): string;
begin
  var imf := ExtractFilePath(Application.ExeName) + 'image\';
  Result := imf + name + '.' + f;
end;

end.

